home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / ambos-update / ambos / toolbox / ambos-si / getsysinfo next >
Text File  |  1999-05-17  |  1KB  |  46 lines
  1. ; $VER: GetSysInfo 1.1 (06.10.98) written by spock@ebase.capella.de
  2. FailAt 21
  3. Which >NIL: RequestFile
  4. If warn
  5.  Quit 20
  6. EndIf
  7. Set logname "##unset##"
  8. Set logname `RequestFile DRAWER "RAM:" FILE "SI3.log" TITLE "SI-Logdatei einstellen" SAVEMODE`
  9. If "$logname" eq "##unset##"
  10.  Unset logname
  11.  Quit 5
  12. EndIf
  13. If exists "$logname"
  14.  Set res `RequestChoice "GenSysInfo Frage" "Datei*n$logname*nexistiert bereits!" "Überschreiben" "Abbruch"`
  15.  If $res eq "0"
  16.   Unset res
  17.   Unset logname
  18.   Quit 5
  19.  EndIf
  20.  Unset res
  21. EndIf
  22. Echo >T:SI.log.tmp "SI-Logfile - `date`"
  23. Copy >NIL: T:SI.log.tmp "$logname" quiet
  24. If warn
  25.  RequestChoice >NIL: "GetSysInfo Fehler" "Die Datei*n$logname*nkonnte nicht geöffnet werden!" "Abbruch"
  26.  Delete T:SI.log.tmp quiet
  27.  Quit 10
  28. EndIf
  29. Delete T:SI.log.tmp quiet
  30. Which >NIL: SI
  31. If warn
  32.  RequestChoice >NIL: "GetSysInfo Fehler" "Das Tool SI konnte nicht gefunden werden!" "Abbruch"
  33.  Quit 10
  34. EndIf
  35. SI >>"$logname"
  36. Set res `RequestChoice "GetSysInfo" "Die Logdatei*n$logname*nwurde erzeugt." "Ansehen" "Ende"`
  37. If $res eq "1"
  38.  Run >NIL: MultiView "$logname"
  39. EndIf
  40. Unset res
  41. Unset logname
  42.  
  43.  
  44.  
  45.  
  46.